home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / desqview.swg / 0007_Access to DesqView.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  1003 b   |  41 lines
  1. {
  2.       Simply pass a number (1-3) through it:
  3.          1 -- Switches to next window
  4.          2 -- Pops up the Alt menu
  5.               ^^^^^^^^^^^^^^^^^^^^ this is what you want
  6.          3 -- Close the current window
  7.  
  8.       I don't know about Alt-H though.. I know that if you used ReadKey
  9.       you'd have to read it twice -- once for the #0 (tells you that
  10.       it is an extended code) -- again for the extended code (35=Alt-H).
  11.  
  12.       Hope this helps!  Good luck.
  13.       -- Jeff.Guillaume@launchpad.unc.edu
  14. }
  15.  
  16. Procedure DesqView(Func : Byte); ASSEMBLER;
  17. ASM
  18.   mov   AH, $05
  19.   cmp   Func, 1           { Switch to next window }
  20.   je    @SwitchNext
  21.   cmp   Func, 2           { Pop up Alt-menu }
  22.   je    @PopDesqView
  23.   cmp   Func, 3           { Close current window }
  24.   je    @CloseWin
  25.  
  26. @SwitchNext:
  27.   mov   CX, $FB00
  28.   jmp   @CallInt
  29.  
  30. @PopDesqView:
  31.   mov   CX, $FC00
  32.   jmp   @CallInt
  33.  
  34. @CloseWin:
  35.   mov   CX, $FE00
  36.  
  37. @CallInt:
  38.   int   $16
  39.  
  40. End; {* DesqView *}
  41.